From ed83b1928702ef3c34763dc46f9213b5c96cc4b4 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Mon, 15 Mar 1993 09:02:00 +0000
Subject: [PATCH] * register.el (view-register): Neglect not to avoid failing
 to 	properly display all the possible sorts of things one might find 
 in a buffer.

---
 lisp/register.el | 47 ++++++++++++++++++++++++++++++-----------------
 1 file changed, 30 insertions(+), 17 deletions(-)

diff --git a/lisp/register.el b/lisp/register.el
index 25167cf4abd..447c4c4a595 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -122,23 +122,36 @@ REGISTER is a character."
 	(princ "Register ")
 	(princ (single-key-description char))
 	(princ " contains ")
-	(if (integerp val)
-	    (princ val)
-	  (if (markerp val)
-	      (progn
-		(princ "a buffer position:\nbuffer ")
-		(princ (buffer-name (marker-buffer val)))
-		(princ ", position ")
-		(princ (+ 0 val)))
-	    (if (consp val)
-		(progn
-		  (princ "the rectangle:\n")
-		  (while val
-		    (princ (car val))
-		    (terpri)
-		    (setq val (cdr val))))
-	      (princ "the string:\n")
-	      (princ val))))))))
+	(cond
+	 ((integerp val)
+	  (princ val))
+
+	 ((markerp val)
+	  (princ "a buffer position:\nbuffer ")
+	  (princ (buffer-name (marker-buffer val)))
+	  (princ ", position ")
+	  (princ (+ 0 val)))
+
+	 ((window-configuration-p val)
+	  (princ "a window configuration."))
+
+	 ((frame-configuration-p val)
+	  (princ "a frame configuration."))
+
+	 ((consp val)
+	  (princ "the rectangle:\n")
+	  (while val
+	    (princ (car val))
+	    (terpri)
+	    (setq val (cdr val))))
+
+	 ((stringp val)
+	  (princ "the text:\n")
+	  (princ val))
+
+	 (t
+	  (princ "Garbage:\n")
+	  (prin1 val)))))))
 
 (defun insert-register (char &optional arg)
   "Insert contents of register REG.  REG is a character.
-- 
2.30.2